home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / libraries / muilist374.lha / mui-lists / getstring-ttx.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-08-29  |  951 b   |  40 lines
  1. /*******************************************************************
  2. * arexx script to run mui-lists from TurboText
  3. *
  4. * Note: You must change the path to point to where the program is!
  5. ********************************************************************/
  6.  
  7. muifile = "fast:mui-lists/mui-lists"
  8. finished = 0
  9.  
  10. options results
  11.  
  12. getport                  /* Get the port for the current window  */
  13. ttxport = RESULT         /* and stash it for later use.          */
  14. if ~show('p',MUILISTS) then
  15. do
  16.    address command
  17.    "run >nil: <nil: "muifile
  18.    do 5 while ~show('p',"MUILISTS")
  19.       'WaitForPort MUILISTS'
  20.    end
  21.    address
  22.    if rc=5 then do
  23.       say "Unable to Find MUILISTS"
  24.       exit
  25.    end
  26. end
  27.  
  28. do until finished=1
  29.     address 'MUILISTS'
  30.     'getstring'
  31.     muistring = result
  32.     if muistring = "RESULT" then finished = 1
  33.     else do
  34.         address VALUE ttxport
  35.         parse VALUE muistring WITH muierr ' ' muistr
  36.         'text' muistr
  37.         if muierr=0 then finished=1
  38.     end
  39. end
  40.